home *** CD-ROM | disk | FTP | other *** search
/ 1000 Apple LAN Literacy / 1000 Apple LAN Literacy.iso / Apple LAN Literacy / Literacy Segments Part 3 / Literacy Segments Part 3 / background_96494.txt < prev    next >
Text File  |  1989-08-22  |  14KB  |  642 lines
  1. -- background: 96494 from stack: in
  2. -- bmap block id: 96561
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 2.4.1 Practice5
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global answerTracker
  9.   send mouseUp to bg btn "done"
  10.   repeat with i = 1 to 6
  11.     get line (line 2 of fld "key") of answerTracker
  12.     if it = "y" and i = line 1 of fld "key"
  13.     then set the hilite of bg btn ("graphic" & i) to true
  14.   else set the hilite of bg btn ("graphic" & i) to false
  15. end repeat
  16. pass openCard
  17. end openCard
  18.  
  19. on hideFeedback
  20.   lock screen
  21.   hide fld "Feedback1"
  22.   hide fld "Feedback2"
  23.   hide fld "Feedback3"
  24.   hide fld "Feedback4"
  25.   hide fld "Feedback5"
  26.   hide fld "Feedback6"
  27.   hide fld "CorrectAnswer"
  28.   hide fld "MasterFeedback"
  29.   hide bg btn "Done"
  30.   unlock screen
  31. end hideFeedback
  32.  
  33. on showFeedback
  34.   lock screen
  35.   show fld "Feedback1"
  36.   show fld "Feedback2"
  37.   show fld "Feedback3"
  38.   show fld "Feedback4"
  39.   show fld "Feedback5"
  40.   show fld "Feedback6"
  41.   show fld "CorrectAnswer"
  42.   show fld "MasterFeedback"
  43.   show bg btn "Done"
  44.   unlock screen
  45. end showFeedback
  46.  
  47. on feedback
  48.   global answerTracker
  49.   lock screen
  50.  
  51.   get last char of the short name of the target
  52.   if line (line 2 of fld "key") of answerTracker ‚↠"y" then
  53.     -- don't overwrite if Q has been answered
  54.     if it = line 1 of fld "key" then
  55.       -- this is the correct answer
  56.       put "y" into line (line 2 of fld "key") of answerTracker
  57.     else put "n" into line (line 2 of fld "key") of answerTracker
  58.   end if
  59.  
  60.   put fld ("feedback" & it) into fld "masterFeedback"
  61.   show fld "masterFeedback"
  62.   show bg btn "Done"
  63.  
  64.   unlock screen
  65. end feedback
  66.  
  67.  
  68. -- part 3 (field)
  69. -- low flags: 01
  70. -- high flags: 0000
  71. -- rect: left=18 top=1 right=38 bottom=442
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 0
  75. -- font id: 156
  76. -- text size: 24
  77. -- style flags: 10240
  78. -- line height: 32
  79. -- part name: Title
  80.  
  81.  
  82. -- part 5 (field)
  83. -- low flags: 81
  84. -- high flags: 0001
  85. -- rect: left=423 top=0 right=13 bottom=466
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 0 / 0
  88. -- text alignment: 65535
  89. -- font id: 4
  90. -- text size: 9
  91. -- style flags: 0
  92. -- line height: 12
  93. -- part name: CardTitle
  94.  
  95.  
  96. -- part 14 (button)
  97. -- low flags: 00
  98. -- high flags: 0000
  99. -- rect: left=443 top=5 right=72 bottom=512
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 0 / 0
  102. -- text alignment: 1
  103. -- font id: 0
  104. -- text size: 12
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: Instant Reference
  108. ----- HyperTalk script -----
  109. on mouseUp
  110.   instantReference "2.4.1"
  111. end mouseUp
  112.  
  113.  
  114. -- part 15 (button)
  115. -- low flags: 00
  116. -- high flags: 2000
  117. -- rect: left=480 top=143 right=172 bottom=511
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 1310 / 1310
  120. -- text alignment: 1
  121. -- font id: 0
  122. -- text size: 12
  123. -- style flags: 0
  124. -- line height: 16
  125. -- part name: Student Services
  126. ----- HyperTalk script -----
  127. on mousedown
  128.   SSpopUp
  129. end mousedown
  130.  
  131. on mouseup
  132.   if the mouseloc is not within the rect of me then exit to hyperCard
  133.   doSS
  134. end mouseup
  135.  
  136.  
  137.  
  138. -- part 16 (button)
  139. -- low flags: 00
  140. -- high flags: 2000
  141. -- rect: left=482 top=176 right=205 bottom=511
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 162 / 162
  144. -- text alignment: 1
  145. -- font id: 0
  146. -- text size: 12
  147. -- style flags: 0
  148. -- line height: 16
  149. -- part name: Help
  150. ----- HyperTalk script -----
  151. on mouseUp
  152.   Help
  153. end mouseUp
  154.  
  155.  
  156.  
  157. -- part 17 (button)
  158. -- low flags: 00
  159. -- high flags: 2000
  160. -- rect: left=482 top=294 right=320 bottom=509
  161. -- title width / last selected line: 0
  162. -- icon id / first selected line: 1236 / 1236
  163. -- text alignment: 1
  164. -- font id: 0
  165. -- text size: 12
  166. -- style flags: 0
  167. -- line height: 16
  168. -- part name: Last Menu
  169. ----- HyperTalk script -----
  170. on mouseUp
  171.   go cd "Network Services P/1"
  172. end mouseUp
  173.  
  174.  
  175.  
  176. -- part 18 (button)
  177. -- low flags: 00
  178. -- high flags: 2000
  179. -- rect: left=478 top=319 right=341 bottom=498
  180. -- title width / last selected line: 0
  181. -- icon id / first selected line: 1238 / 1238
  182. -- text alignment: 1
  183. -- font id: 0
  184. -- text size: 12
  185. -- style flags: 0
  186. -- line height: 16
  187. -- part name: Prev
  188. ----- HyperTalk script -----
  189. on mouseUp
  190.   lock screen
  191.   go prev
  192.   unlock screen with scroll right
  193. end mouseUp
  194.  
  195.  
  196. -- part 19 (button)
  197. -- low flags: 00
  198. -- high flags: 2000
  199. -- rect: left=493 top=319 right=341 bottom=512
  200. -- title width / last selected line: 0
  201. -- icon id / first selected line: 1237 / 1237
  202. -- text alignment: 1
  203. -- font id: 0
  204. -- text size: 12
  205. -- style flags: 0
  206. -- line height: 16
  207. -- part name: Next
  208. ----- HyperTalk script -----
  209. on mouseUp
  210.   lock screen
  211.   go next
  212.   unlock screen with scroll left
  213. end mouseUp
  214.  
  215.  
  216. -- part 21 (field)
  217. -- low flags: 01
  218. -- high flags: 0000
  219. -- rect: left=16 top=38 right=67 bottom=438
  220. -- title width / last selected line: 0
  221. -- icon id / first selected line: 0 / 0
  222. -- text alignment: 0
  223. -- font id: 156
  224. -- text size: 20
  225. -- style flags: 0
  226. -- line height: 26
  227. -- part name: Subtitle
  228.  
  229.  
  230. -- part 22 (field)
  231. -- low flags: 01
  232. -- high flags: 0000
  233. -- rect: left=16 top=70 right=145 bottom=445
  234. -- title width / last selected line: 0
  235. -- icon id / first selected line: 0 / 0
  236. -- text alignment: 0
  237. -- font id: 156
  238. -- text size: 16
  239. -- style flags: 0
  240. -- line height: 17
  241. -- part name: Question
  242.  
  243.  
  244. -- part 33 (field)
  245. -- low flags: 81
  246. -- high flags: 2007
  247. -- rect: left=8 top=36 right=94 bottom=231
  248. -- title width / last selected line: 0
  249. -- icon id / first selected line: 0 / 0
  250. -- text alignment: 0
  251. -- font id: 156
  252. -- text size: 16
  253. -- style flags: 0
  254. -- line height: 17
  255. -- part name: Feedback1
  256.  
  257.  
  258. -- part 52 (field)
  259. -- low flags: 01
  260. -- high flags: 0000
  261. -- rect: left=16 top=144 right=164 bottom=445
  262. -- title width / last selected line: 0
  263. -- icon id / first selected line: 0 / 0
  264. -- text alignment: 0
  265. -- font id: 3
  266. -- text size: 10
  267. -- style flags: 256
  268. -- line height: 15
  269. -- part name: Instruction
  270.  
  271.  
  272. -- part 34 (field)
  273. -- low flags: 81
  274. -- high flags: 2007
  275. -- rect: left=8 top=97 right=155 bottom=231
  276. -- title width / last selected line: 0
  277. -- icon id / first selected line: 0 / 0
  278. -- text alignment: 0
  279. -- font id: 156
  280. -- text size: 16
  281. -- style flags: 0
  282. -- line height: 17
  283. -- part name: Feedback2
  284.  
  285.  
  286. -- part 35 (field)
  287. -- low flags: 81
  288. -- high flags: 2007
  289. -- rect: left=8 top=159 right=216 bottom=231
  290. -- title width / last selected line: 0
  291. -- icon id / first selected line: 0 / 0
  292. -- text alignment: 0
  293. -- font id: 156
  294. -- text size: 16
  295. -- style flags: 0
  296. -- line height: 17
  297. -- part name: Feedback3
  298.  
  299.  
  300. -- part 36 (field)
  301. -- low flags: 81
  302. -- high flags: 2007
  303. -- rect: left=8 top=219 right=277 bottom=231
  304. -- title width / last selected line: 0
  305. -- icon id / first selected line: 0 / 0
  306. -- text alignment: 0
  307. -- font id: 156
  308. -- text size: 16
  309. -- style flags: 0
  310. -- line height: 17
  311. -- part name: Feedback4
  312.  
  313.  
  314. -- part 38 (field)
  315. -- low flags: 81
  316. -- high flags: 2007
  317. -- rect: left=8 top=280 right=338 bottom=231
  318. -- title width / last selected line: 0
  319. -- icon id / first selected line: 0 / 0
  320. -- text alignment: 0
  321. -- font id: 156
  322. -- text size: 16
  323. -- style flags: 0
  324. -- line height: 17
  325. -- part name: CorrectAnswer
  326.  
  327.  
  328. -- part 68 (field)
  329. -- low flags: 01
  330. -- high flags: 0000
  331. -- rect: left=314 top=172 right=207 bottom=390
  332. -- title width / last selected line: 0
  333. -- icon id / first selected line: 0 / 0
  334. -- text alignment: 0
  335. -- font id: 156
  336. -- text size: 16
  337. -- style flags: 0
  338. -- line height: 17
  339. -- part name: Label2
  340.  
  341.  
  342. -- part 70 (field)
  343. -- low flags: 01
  344. -- high flags: 0000
  345. -- rect: left=315 top=262 right=299 bottom=391
  346. -- title width / last selected line: 0
  347. -- icon id / first selected line: 0 / 0
  348. -- text alignment: 0
  349. -- font id: 156
  350. -- text size: 16
  351. -- style flags: 0
  352. -- line height: 17
  353. -- part name: label6
  354.  
  355.  
  356. -- part 69 (field)
  357. -- low flags: 01
  358. -- high flags: 0000
  359. -- rect: left=314 top=217 right=254 bottom=447
  360. -- title width / last selected line: 0
  361. -- icon id / first selected line: 0 / 0
  362. -- text alignment: 0
  363. -- font id: 156
  364. -- text size: 16
  365. -- style flags: 0
  366. -- line height: 17
  367. -- part name: Label4
  368.  
  369.  
  370. -- part 67 (field)
  371. -- low flags: 01
  372. -- high flags: 0000
  373. -- rect: left=106 top=262 right=300 bottom=213
  374. -- title width / last selected line: 0
  375. -- icon id / first selected line: 0 / 0
  376. -- text alignment: 0
  377. -- font id: 156
  378. -- text size: 16
  379. -- style flags: 0
  380. -- line height: 17
  381. -- part name: label5
  382.  
  383.  
  384. -- part 66 (field)
  385. -- low flags: 01
  386. -- high flags: 0000
  387. -- rect: left=106 top=217 right=254 bottom=182
  388. -- title width / last selected line: 0
  389. -- icon id / first selected line: 0 / 0
  390. -- text alignment: 0
  391. -- font id: 156
  392. -- text size: 16
  393. -- style flags: 0
  394. -- line height: 17
  395. -- part name: Label3
  396.  
  397.  
  398. -- part 65 (field)
  399. -- low flags: 01
  400. -- high flags: 0000
  401. -- rect: left=106 top=172 right=209 bottom=165
  402. -- title width / last selected line: 0
  403. -- icon id / first selected line: 0 / 0
  404. -- text alignment: 0
  405. -- font id: 156
  406. -- text size: 16
  407. -- style flags: 0
  408. -- line height: 17
  409. -- part name: Label1
  410.  
  411.  
  412. -- part 53 (button)
  413. -- low flags: 00
  414. -- high flags: A004
  415. -- rect: left=179 top=321 right=340 bottom=324
  416. -- title width / last selected line: 0
  417. -- icon id / first selected line: 0 / 0
  418. -- text alignment: 1
  419. -- font id: 0
  420. -- text size: 12
  421. -- style flags: 0
  422. -- line height: 16
  423. -- part name: Answer
  424. ----- HyperTalk script -----
  425. on mouseUp
  426.   global answerTracker
  427.   lock screen
  428.   put "y" into line (line 2 of fld "key") of answerTracker
  429.   put fld "CorrectAnswer" into fld "MasterFeedback"
  430.   show fld "MasterFeedback"
  431.   show bg btn "Done"
  432.   unlock screen
  433. end mouseUp
  434.  
  435.  
  436. -- part 61 (field)
  437. -- low flags: 81
  438. -- high flags: 2007
  439. -- rect: left=238 top=32 right=89 bottom=461
  440. -- title width / last selected line: 0
  441. -- icon id / first selected line: 0 / 0
  442. -- text alignment: 0
  443. -- font id: 156
  444. -- text size: 16
  445. -- style flags: 0
  446. -- line height: 17
  447. -- part name: Feedback5
  448.  
  449.  
  450. -- part 63 (button)
  451. -- low flags: 00
  452. -- high flags: 2000
  453. -- rect: left=482 top=208 right=234 bottom=509
  454. -- title width / last selected line: 0
  455. -- icon id / first selected line: 1234 / 1234
  456. -- text alignment: 1
  457. -- font id: 0
  458. -- text size: 12
  459. -- style flags: 0
  460. -- line height: 16
  461. -- part name: Lesson
  462. ----- HyperTalk script -----
  463. on mouseUp
  464.   lesson "2.4.1"
  465. end mouseUp
  466.  
  467.  
  468. -- part 71 (field)
  469. -- low flags: 81
  470. -- high flags: 2007
  471. -- rect: left=238 top=96 right=153 bottom=461
  472. -- title width / last selected line: 0
  473. -- icon id / first selected line: 0 / 0
  474. -- text alignment: 0
  475. -- font id: 156
  476. -- text size: 16
  477. -- style flags: 0
  478. -- line height: 17
  479. -- part name: Feedback6
  480.  
  481.  
  482. -- part 47 (button)
  483. -- low flags: 00
  484. -- high flags: 2000
  485. -- rect: left=59 top=168 right=210 bottom=229
  486. -- title width / last selected line: 0
  487. -- icon id / first selected line: 0 / 0
  488. -- text alignment: 1
  489. -- font id: 0
  490. -- text size: 12
  491. -- style flags: 0
  492. -- line height: 16
  493. -- part name: Graphic1
  494. ----- HyperTalk script -----
  495. on mouseUp
  496.   feedback
  497. end mouseUp
  498.  
  499.  
  500. -- part 48 (button)
  501. -- low flags: 00
  502. -- high flags: 2000
  503. -- rect: left=59 top=213 right=255 bottom=229
  504. -- title width / last selected line: 0
  505. -- icon id / first selected line: 0 / 0
  506. -- text alignment: 1
  507. -- font id: 0
  508. -- text size: 12
  509. -- style flags: 0
  510. -- line height: 16
  511. -- part name: Graphic2
  512. ----- HyperTalk script -----
  513. on mouseUp
  514.   feedback
  515. end mouseUp
  516.  
  517.  
  518. -- part 49 (button)
  519. -- low flags: 00
  520. -- high flags: 2000
  521. -- rect: left=59 top=258 right=300 bottom=229
  522. -- title width / last selected line: 0
  523. -- icon id / first selected line: 0 / 0
  524. -- text alignment: 1
  525. -- font id: 0
  526. -- text size: 12
  527. -- style flags: 0
  528. -- line height: 16
  529. -- part name: Graphic3
  530. ----- HyperTalk script -----
  531. on mouseUp
  532.   feedback
  533. end mouseUp
  534.  
  535.  
  536. -- part 50 (button)
  537. -- low flags: 00
  538. -- high flags: 2000
  539. -- rect: left=268 top=168 right=210 bottom=444
  540. -- title width / last selected line: 0
  541. -- icon id / first selected line: 0 / 0
  542. -- text alignment: 1
  543. -- font id: 0
  544. -- text size: 12
  545. -- style flags: 0
  546. -- line height: 16
  547. -- part name: Graphic4
  548. ----- HyperTalk script -----
  549. on mouseUp
  550.   feedback
  551. end mouseUp
  552.  
  553.  
  554. -- part 51 (button)
  555. -- low flags: 00
  556. -- high flags: 2000
  557. -- rect: left=270 top=213 right=255 bottom=444
  558. -- title width / last selected line: 0
  559. -- icon id / first selected line: 0 / 0
  560. -- text alignment: 1
  561. -- font id: 0
  562. -- text size: 12
  563. -- style flags: 0
  564. -- line height: 16
  565. -- part name: Graphic5
  566. ----- HyperTalk script -----
  567. on mouseUp
  568.   feedback
  569. end mouseUp
  570.  
  571.  
  572. -- part 64 (button)
  573. -- low flags: 00
  574. -- high flags: 2000
  575. -- rect: left=269 top=258 right=300 bottom=444
  576. -- title width / last selected line: 0
  577. -- icon id / first selected line: 0 / 0
  578. -- text alignment: 1
  579. -- font id: 0
  580. -- text size: 12
  581. -- style flags: 0
  582. -- line height: 16
  583. -- part name: Graphic6
  584. ----- HyperTalk script -----
  585. on mouseUp
  586.   feedback
  587. end mouseUp
  588.  
  589.  
  590. -- part 39 (field)
  591. -- low flags: 81
  592. -- high flags: 2004
  593. -- rect: left=147 top=132 right=304 bottom=356
  594. -- title width / last selected line: 0
  595. -- icon id / first selected line: 0 / 0
  596. -- text alignment: 0
  597. -- font id: 156
  598. -- text size: 16
  599. -- style flags: 0
  600. -- line height: 17
  601. -- part name: MasterFeedback
  602.  
  603.  
  604. -- part 40 (button)
  605. -- low flags: 80
  606. -- high flags: A002
  607. -- rect: left=215 top=279 right=296 bottom=284
  608. -- title width / last selected line: 0
  609. -- icon id / first selected line: 0 / 0
  610. -- text alignment: 1
  611. -- font id: 0
  612. -- text size: 12
  613. -- style flags: 0
  614. -- line height: 16
  615. -- part name: Done
  616. ----- HyperTalk script -----
  617. on mouseUp
  618.   global answerTracker
  619.   lock screen
  620.   if line (line 2 of fld "key") of answerTracker = "y" then
  621.     -- question correctly answered
  622.     set the hilite of bg btn ("graphic" & line 1 of fld "key") to true
  623.   end if
  624.   hide fld "MasterFeedback"
  625.   hide bg btn "Done"
  626.   unlock screen
  627. end mouseUp
  628.  
  629.  
  630. -- part 72 (field)
  631. -- low flags: 81
  632. -- high flags: 0002
  633. -- rect: left=1 top=306 right=341 bottom=34
  634. -- title width / last selected line: 0
  635. -- icon id / first selected line: 0 / 0
  636. -- text alignment: 0
  637. -- font id: 3
  638. -- text size: 12
  639. -- style flags: 0
  640. -- line height: 16
  641. -- part name: key
  642.